home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr48 / pasclern.zip / FUNCTION.PAS < prev    next >
Pascal/Delphi Source File  |  1993-04-01  |  351b  |  16 lines
  1. PROGRAM example_function;
  2.  
  3. VAR dogs,cats,feet : INTEGER;
  4.  
  5. FUNCTION quad_of_sum(number1,number2 : INTEGER) : INTEGER;
  6. BEGIN
  7.   quad_of_sum := 4*(number1 + number2);
  8. END;
  9.  
  10. BEGIN  (* main program *)
  11.   dogs := 4;
  12.   cats := 3;
  13.   feet := quad_of_sum(dogs,cats);
  14.   WRITELN(' There are a total of',feet:3,' paws.');
  15. END.  (* of main program *)
  16.